home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 May / Ahoy_Magazine_86-05_1986_Double_L.d64 / menu c-64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  52 lines
  1. 10 poke53280,6:poke53281,6:dimtb$(150):print"[147]"chr$(14):di=8:c=1
  2. 20 open8,di,8,":   directory   ":open15,di,15:input#15,en$,ed$,et$,es$
  3. 30 input#8,dn$:ifen$<>"00"thenclose8:close15:goto310
  4. 40 input#8,tb$(c):ifst=66then70
  5. 50 ifasc(left$(tb$(c),1))=10thentb$(c)=right$(tb$(c),len(tb$(c))-1):goto50
  6. 60 c=c+1:goto40
  7. 70 close8:close15:m=c-1:tb$(c)="":l1$="":forc=1to40:l1$=l1$+" ":next
  8. 80 l1$=l1$+"[146]":a=1
  9. 90 poke53281,1:print"[147]";:forc=1to4:printl1$;:next:forc=1to2:print""l1$;
  10. 95 next:print"";
  11. 100 printspc(7)"[196]irectory [193]ssistance v64"spc(11)"                         ";
  12. 105 print"         "spc(12)"  (c) [201]on [201]nt'l [201]nc. "spc(59)""dn$spc(8)l1$;
  13. 120 forc=atoa+14:print""right$("    "+str$(c),5)"[146] "tb$(c)spc(29-len(tb$(c)));
  14. 130 print"     ";:next:printl1$;
  15. 135 fora=1to2:print""l1$;:next:printleft$(l1$,40)"[145]"
  16. 140 printspc(9)"[145][145][198]1 = continue listing"spc(19)"[198]3 = create directory";
  17. 150 printspc(19)"[198]5 = exit program":poke2023,160:poke56295,6:poke198,0:b$=""
  18. 160 geta$:ifa$=""then160
  19. 170 ifasc(a$)=13then260
  20. 180 ifa$="[133]"then240:rem" f1 ******
  21. 190 [139]a$[178]"dim"[167]300:[143]" f3 ******
  22. 200 ifa$="[135]"thenpoke53280,3:print"[147]run":end:rem" f5 ******
  23. 210 [139][198](a$)[178]20[167]b$[178]"":[153]"   wait":b$[178]"":[137]160
  24. 220 [139]a$[179]"0"[176]a$[177]"9"[176][195](b$)[178]3[167]160
  25. 230 b$[178]b$[170]a$:[153]""b$:[137]160
  26. 240 [139]c[177]m[167]a[178]1:[137]90
  27. 250 a[178]c:[137]90
  28. 260 [139][197](b$)[177]m[167][153]"???":[129]c[178]1[164]1500:[130]:a$[178][199](20):[137]210
  29. 270 [151]53281,6:[151]53280,14:[153]"waitloadload"[199](34)tb$([197](b$))[199](34)",8,1"
  30. 280 [143]   printright$(str$(di),len(str$(di))-1)
  31. 290 [153]"":[151]198,4:[151]631,13:[151]632,82:[151]633,213:[151]634,13:[128]
  32. 300 [153]"wait"
  33. 310 [159]8,di,0,"$0":[129]c[178]1[164]8:[161]#8,a$:[130]:c[178]1:dn$[178]"":[129]c[178]1[164]16
  34. 320 [161]#8,a$:dn$[178]dn$[170]a$:[130]:[161]#8,a$:[161]#8,a$:dn$[178]dn$[170]"  ":[161]#8,a$
  35. 330 dn$[178]dn$[170]a$:[161]#8,a$:dn$[178]dn$[170]a$:[161]#8,a$:[161]#8,a$:dn$[178]dn$[170]"  "[170]a$
  36. 340 [161]#8,a$:dn$[178]dn$[170]a$:[161]#8,a$:c[178]1
  37. 350 [129]a[178]1[164]4:[161]#8,a$:[130]:pn$[178]"":ty$[178]""
  38. 360 [161]#8,a$:[139]st[179][177]0[167]450
  39. 370 [139]a$[178]""[167]450
  40. 380 [139][198](a$)[179][177]34[167]360
  41. 390 [161]#8,a$:[139][198](a$)[179][177]34[167]pn$[178]pn$[170]a$:[137]390
  42. 400 [161]#8,a$:[139][198](a$)[178]32[167]400
  43. 410 ty$[178]ty$[170]a$:[161]#8,a$:[139]a$[179][177]""[167]410
  44. 420 [139][200](ty$,3)[179][177]"prg"[167]350
  45. 430 [139][200](pn$,1)[178]" "[167]350
  46. 440 tb$(c)[178]pn$:c[178]c[170]1:[139]st[178]0[167]350
  47. 450 [160]8:[159]15,di,15,"s:   directory   ":[160]15
  48. 460 z$[178]"(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)(NULL)":[159]8,di,8,":   directory   ,s,w":[152]8,dn$
  49. 470 [129]a[178]1[164]c[171]1:c$[178]z$:[129]b[178]1[164]c[171]1:[139]c$[179]tb$(b)[167]490
  50. 480 c$[178]tb$(b):d[178]b
  51. 490 [130]:[152]8,c$:tb$(d)[178]z$:[130]:[160]8:[156]:[137]10
  52.